library(tidyverse)
## -- Attaching packages -------------------------------------------------------------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## -- Conflicts ----------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(sf)
## Linking to GEOS 3.8.0, GDAL 3.0.4, PROJ 6.3.1
library(leaflet)
## Warning: package 'leaflet' was built under R version 4.0.3
library(htmltools)
library(htmlwidgets)

#Downloading Data - Ohio Balanced Growth Program Priority Conservation Areas in Cuyahoga County, OH

Priority_Conservation <- st_read("https://opendata.arcgis.com/datasets/71f20ffde5a14ac88db5b05390a36455_13.kml") %>%
  mutate(acres = as.numeric(st_area(geometry)) / 4046.86)%>%
  mutate(name = ifelse(is.na(Name), "unnamed", Name))
## Reading layer `CCPC___Greenprint' from data source `https://opendata.arcgis.com/datasets/71f20ffde5a14ac88db5b05390a36455_13.kml' using driver `KML'
## Simple feature collection with 13042 features and 2 fields
## geometry type:  MULTIPOLYGON
## dimension:      XY
## bbox:           xmin: -81.80012 ymin: 41.18829 xmax: -81.09993 ymax: 41.7579
## geographic CRS: WGS 84
Priority_Conservation$describe <- 
  paste(Priority_Conservation$Name, "<br>", 
               prettyNum(Priority_Conservation$acres, digits = 2), " acres") %>% 
  lapply(htmltools::HTML)

map1 <- leaflet(Priority_Conservation) %>%
  addProviderTiles(providers$Stamen.TonerLite) %>%
  addPolygons(fillColor = "blue", stroke = FALSE, 
              highlightOptions = highlightOptions(fillColor = "navy", 
                                                  fillOpacity = 1), popup = ~describe) %>%
  addControl("Ohio Balanced Growth Program Priority Conservation Areas in Cuyahoga County, OH", position = "topright") %>%
addControl('<a href="https://data-cuyahoga.opendata.arcgis.com/datasets/priority-conservation-areas-ohio-balanced-growth-program">Data source</a>',
             position = "bottomleft")
map1